(rmail-count-new-messages): Fix previous change.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index a72c16469a80999ceca0aec9adc3ec9c133977fa..0ee6ce10f1677b8e8cd8c97ca0e447fa27800500 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1798,7 +1798,7 @@ change the invisible header text."
     (setq rmail-msgref-vector
          (vconcat rmail-msgref-vector (make-vector total-messages nil)))
     ;; Fill in the new elements of rmail-msgref-vector.
-    (let ((i (- rmail-total-messages old-total-messages)))
+    (let ((i (1+ (- rmail-total-messages total-messages))))
       (while (<= i rmail-total-messages)
        (aset rmail-msgref-vector i (list i))
        (setq i (1+ i))))